Attribute VB_Name = "modNavigation"
'Vertical Caption Declaration
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
    lfHeight As Long
    lfWidth As Long
    lfEscapement As Long
    lfOrientation As Long
    lfWeight As Long
    lfItalic As Byte
    lfUnderline As Byte
    lfStrikeOut As Byte
    lfCharSet As Byte
    lfOutPrecision As Byte
    lfClipPrecision As Byte
    lfQuality As Byte
    lfPitchAndFamily As Byte
    lfFaceName(LF_FACESIZE) As Byte
End Type

Public Const maxWidth = 4785
Public Const minWidth = 405

Public Const Expanded = 4650
Public Const NotExpanded = 0 '135

Public IsExpanded As Boolean



'Vertical Caption Sub Procedure
Public Sub DrawVertical(obj As Object)
    Dim RotateMe As LOGFONT

    obj.AutoRedraw = True
    Deg = 270
    Size = 12.4
    RotateMe.lfEscapement = Deg * 10
    RotateMe.lfHeight = (Size * -14) / Screen.TwipsPerPixelY
    
    rFont = CreateFontIndirect(RotateMe)
    Curent = SelectObject(obj.hdc, rFont)
    
    obj.CurrentX = 300
    obj.CurrentY = 250
    obj.Print obj.Tag
End Sub



